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-- file P4Defs.Mesa 

-- last modified by Satterthwaite, July 16, 1978 10:19 AM 

DIRECTORY 

ControlDefs: FROM "controldef s" , 
SymDefs: FROM "symdefs", 
TableDefs: FROM nabledefs\ 
TreeDefs: FROM "treedefs"; 

P4Defs: DEFINITIONS - 
BEGIN 
OPEN TreeDefs, SymDefs; 

P4Mark: BOOLEAN ■ FALSE; 

-- representations (temporary) 

Repr: TYPE ■ [none . .other+both]; 
none: CARDINAL ■ 0; 
signed: CARDINAL ■ 1; 
unsigned: CARDINAL ■ 2; 
other: CARDINAL - 4; 
both: CARDINAL « signed+unsigned; 

-- notifiers 

BCDNotify, DeclNotify, LayoutNotify , StmtNotify: TableDefs .TableNotifier; 
ExpANotify, ExpBNotify: TableDefs .TableNotifier; 

-- exported by Pass4B 

Assignlmports: TreeScan; 

InitBCD: PROCEDURE; 

FinishBCD: PROCEDURE; 

MakeEPLink: PROCEDURE [ep: CARDINAL, gfi: ControlDefs .GFTIndex] RETURNS [ControlDefs .ControlLink] ; 

ProcessExports: TreeMap; 

Processlmports: TreeScan; 

-- exported by Pass4D 

AssignableRanges: PROCEDURE [CSEIndex. CSEIndex] RETURNS [BOOLEAN]; 
BiasForType: PROCEDURE [CSEIndex] RETURNS [INTEGER]; 
ComparableRanges: PROCEDURE [CSEIndex, CSEIndex] RETURNS [BOOLEAN]; 
Declltem: TreeScan; 
DeclUpdate: TreeMap; 

RepForType: PROCEDURE [CSEIndex] RETURNS [Repr]; 
TypeExp: PROCEDURE [typeExp: TreeLink, body: BOOLEAN]; 
TypeForTree: PROCEDURE [TreeLink] RETURNS [SEIndex]; 
WordsForType: PROCEDURE [CSEIndex] RETURNS [CARDINAL]; 

-- exported by Pass4L 

ArgLength: PROCEDURE [SEIndex] RETURNS [CARDINAL]; 

AssignEntries: PROCEDURE [BTIndex]; 

AssignLocalDescriptors: PROCEDURE [BTIndex, CARDINAL] RETURNS [CARDINAL]; 

BitsForType: PROCEDURE [SEIndex] RETURNS [CARDINAL]; 

LayoutArgs: PROCEDURE [recordCSEIndex , CARDINAL, BOOLEAN] RETURNS [CARDINAL]; 

LayoutBlock: PROCEDURE [BTIndex, CARDINAL] RETURNS [CARDINAL]; 

LayoutFields: PROCEDURE [recordCSEIndex, CARDINAL]; 

LayoutGlobals: PROCEDURE [CBTIndex] RETURNS [CARDINAL]; 

Layoutlnterface: PROCEDURE [CBTIndex] RETURNS [CARDINAL]; 

LayoutLocals: PROCEDURE [CBTIndex] RETURNS [CARDINAL]; 

-~ exported by Pass4S 

Binding: PROCEDURE [Treelndex, NodeName. TreeMap] RETURNS [TreeLink]; 
BodyList: PROCEDURE [BTIndex]; 

CaseDriver: PROCEDURE [Treelndex, TreeMap] RETURNS [TreeLink]; 
CatchNest: PROCEDURE [TreeLink]; 

-- exported by Pass4Xa 

Assignment: PROCEDURE [Treelndex] RETURNS [TreeLink]; 
Call: PROCEDURE [Treelndex] RETURNS [TreeLink]; 
Construct: PROCEDURE [Treelndex] RETURNS [TreeLink]; 
Fork: PROCEDURE [Treelndex] RETURNS [TreeLink]; 
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MakeArgRecord: PROCEDURE [recordCSEIndex, TreeLink] RETURNS [TreeLink]; 

New: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

PushAssignment: PROCEDURE [id, val : TreeLink, type: CSEIndex]; 

ResolveSizes: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

RowConstruct: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

TargetRep: PROCEDURE [Repr] RETURNS [Repr]; 

Union: PROCEDURE [Treelndex] RETURNS [TreeLink]; 

UnpackElement: PROCEDURE [TreeLink, CARDINAL] RETURNS [TreeLink]; 

UnpackField: PROCEDURE [TreeLink, ISEIndex] RETURNS [TreeLink]; 

-- exported by Pass4Xb 

Pass4XInit: PROCEDURE; 

AdjustBias: PROCEDURE [TreeLink. INTEGER] RETURNS [TreeLink]; 

Compare: PROCEDURE [1, r: WORD, rep: Repr] RETURNS [INTEGER]; 

Constantlnterval: PROCEDURE [Treelndex] RETURNS [origin, range: INTEGER]; 

Exp: PROCEDURE [TreeLink, Repr] RETURNS [TreeLink]; 

ForceType: PROCEDURE [TreeLink, CSEIndex] RETURNS [TreeLink]; 

Interval: PROCEDURE [Treelndex, INTEGER, Repr] RETURNS [BOOLEAN]; 

MakeStructuredLiteral: PROCEDURE [val: WORD, type: CSEIndex] RETURNS [TreeLink]; 

NeutralExp: TreeMap; 

OperandType: PROCEDURE [TreeLink] RETURNS [CSEIndex]; 

MakeTreeLiteral: PROCEDURE [WORD] RETURNS [TreeLink]; 

Range: PROCEDURE [t: TreeLink, bias: INTEGER, rep, target: Repr] RETURNS [TreeLink]; 

Rvalue: PROCEDURE [exp: TreeLink, bias: INTEGER, target: Repr] RETURNS [TreeLink]; 

TreeLiteral: PROCEDURE [TreeLink] RETURNS [BOOLEAN]; 

TreeLiteralValue: PROCEDURE [TreeLink] RETURNS [WORD]; 

VBias: PROCEDURE RETURNS [INTEGER]; 

VPop: PROCEDURE; 

VPush: PROCEDURE [bias: INTEGER, rep: Repr]; 

VRep: PROCEDURE RETURNS [Repr]; 

MixedRepresentation: SIGNAL; 
Emptylnterval : SIGNAL; 

-- the global frames 

Pass4B, Pass4D, Pass4L, Pass4S, Pass4Xa, Pass4Xb: PROGRAM; 

END. 



